(disassemble-1): Move the call to

string-as-unibyte outside of the if statement.

diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index 8b010c45e4ca47e7563958c063c9c800b1c8a501..bf9e9d04cccb5eb393f424d7407a72c888640933 100644 (file)
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -171,9 +171,9 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler."
              constvec (car (cdr (cdr obj))))   ;constant vector
       ;; If it is lazy-loaded, load it now
       (fetch-bytecode obj)
-      (setq bytes (string-as-unibyte (aref obj 1))
+      (setq bytes (aref obj 1)
            constvec (aref obj 2)))
-    (let ((lap (byte-decompile-bytecode bytes constvec))
+    (let ((lap (byte-decompile-bytecode (string-as-unibyte bytes) constvec))
          op arg opname pc-value)
       (let ((tagno 0)
            tmp